max [ Y , max $partialdiff sub Y$ ( WORLDBATH bath ) ]

forrtl: severe (174): SIGSEGV, segmentation fault occurred Stack trace terminated abnormally.